home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2000 July / macformat-092.iso / Broderbund Demo / DemoData / Mathwork / MATHWORK.Dxr / 00010.ls < prev    next >
Encoding:
Text File  |  1997-08-22  |  424 b   |  18 lines
  1. on exitFrame
  2.   global gCorpDemo, gPickerPath, gCorpDemoList, gLastDemo, gFinalExit
  3.   if voidp(gCorpDemo) then
  4.     set gFinalExit to "LastRoundUp"
  5.   else
  6.     sound stop 1
  7.     sound stop 2
  8.     if gCorpDemo = "PICKER DemoNone" then
  9.       go("return", gPickerPath)
  10.     else
  11.       set gCorpDemo to "PICKER DemoNone"
  12.       set gCorpDemoList to []
  13.       set gLastDemo to EMPTY
  14.       go("Logo", gPickerPath)
  15.     end if
  16.   end if
  17. end
  18.